home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / LkROInc / bench.e
Encoding:
Text File  |  1998-12-22  |  362 b   |  33 lines
  1. class BENCH
  2.  
  3. creation
  4.    make
  5.    
  6. feature
  7.    
  8.    array_int: ARRAY[INTEGER]
  9.  
  10.    make is
  11.       local 
  12.      size: INTEGER
  13.      i: INTEGER
  14.       do
  15.      from
  16.         i := 150;
  17.      until
  18.         i = 0
  19.      loop
  20.         from
  21.            size := 0
  22.         until
  23.            size = 5000
  24.         loop
  25.            !!array_int.make(0,size)
  26.            size := size + 1
  27.         end
  28.         i := i - 1
  29.      end
  30.       end
  31.    
  32. end
  33.